10 POKE53280,.:POKE53281,.:PRINTCHR$(147):V=53248:
12 FORI=832TO894:READD:POKEI,D:NEXT:POKE2040,13
17 POKE53249,120:POKE53269,1:POKEV+21,255:POKEV+39,. :IFZ>10THEN 190
18 FORZ=0TO13:PRINTTAB(6)"[199]LEICH"TAB(28)"[203]OMMT [147][145]":POKE646,INT(RND(0)*15)+0
19 :PRINTCHR$(14):     NEXTZ
20 :PRINT"[215]IRKLICH,[215]AHRHAFTIGUND[197]NDGUELTIG";:
21 :PRINT"[152]     [196] [193] [211]              [197][160][206][160][196][160][197][160]!"::
25 FORX=60TO118:PRINT"[156][169][166][158][255][129][161][161][161][223][169][169][169][156][255][223][169][223][169][223][149][161][161][161][223][169][223][169][223][169][169][223][169][129][169][255][223][169][161][161][161][150][223][169][219][166][169][223]";
30 Y1=121+SQR(132*X-X*X):Y2=121-SQR(132*X-X*X)+.249::POKEV+39,16*RND(0)
32 FORY=Y1TOY2STEPY1-Y2:GOSUB90:NEXTY,X
34 FORX=110TO30STEP-5:Y1=120-SQR(110*X-X*X):Y2=120+SQR(110*X-X*X)/.2
37 FORY=Y1TOY2STEPY1-Y2:GOSUB90:NEXTY,X
40 PRINT"[147]          ":PRINT"          ":PRINT"          ":PRINT"          "
45 GOTO17
90 POKE53249,INT(X):POKE53248,INT(Y):RETURN
150 DATA13,116,0,30,222,0,61,178,0,108,4,0,249,16,0,234,154,0
160 DATA210,8,0,105,64,128,104,135,128,48,8,0,48,36,0,32,24,0
170 DATA16,4,0,8,5,93,8,9,81,16,17,217,32,33,80,121,145,93
180 DATA214,248,0,244,244,0,207,100,0
190 TI$="000002":WAIT161,1:PRINTCHR$(14):           GOTO195:
195 PRINT"[147]>   [206][160][213][160][206]   [201][160][211][160][212]   [215][160][201][160][210][160][203][160][204][160][201][160][195][160][200]:[146]   <";
200 PRINT"[159]   [162][162]   [162][162]  [162]  [162] [162]    [162][160][160][162][160][160][162][162][160][160][160][185][185][160][160][185]
201 [153]"  NEWCLOSECLOSENEWCLOSENEWCLOSECLOSENEW NEWCLOSECLOSENEWCLOSENEWCLOSECLOSECLOSECLOSENEWCLOSECLOSENEWCLOSENEWCLOSECLOSENEWCLOSENEWCLOSECLOSENEWCLOSENEW
202 PRINT"[156]  [162]    [162][160][160][160][160][162][160][160][162][160][162][160][160][160][160][162][160][160][162][160][162][160][160][160][160][162][160][160][160][160][162]
203 [153]"DEF    NEWNEW NEW    NEWNEWNEWNEW NEW    NEW  NEW  NEWNEW   NEWNEW  NEW
204 PRINT"[158]  [160][160][160][162][160][162][160][160][160][160][162][160][160][162][160][162][160][160][160][160][162][160][160][162][160][160][160][160][162][160][160][160][160][162][160][162]
205 [153]"  NEWCLOSECLOSENEWCLOSENEWCLOSECLOSENEWCLOSENEWCLOSECLOSENEWCLOSENEWCLOSECLOSENEWCLOSENEWCLOSECLOSENEWCLOSENEWCLOSECLOSENEWCLOSENEWCLOSECLOSENEW
206 PRINT"[129]   [162][162][160][160][160][162][162][160][160][162][160][160][162][160][162][162][162][162][160][160][162][162][160][160][160][162][162][160][160][160][162][162][160][160][162]
207 TI$[178]"000003":[146]161,1:[151]53272,21:[158]58253